﻿Imports GBDZafiro

Public Class FrmCambiarContrasena


    Private Sub FrmCambiarContrasena_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub bnCambiarContrasena_Click(sender As System.Object, e As System.EventArgs) Handles bnCambiarContrasena.Click
        validarCampos()
    End Sub

    Private Sub validarCampos()

        If tbNuevaContrasena.TextLength < 1 Or tbConfimarContrasena.TextLength < 1 Or _
            tbContrasenaActual.TextLength < 1 Then
            msnBox.msnExclamacion("Complete todos los campos")
            Exit Sub
        End If

        Dim usuario As New GBDZafiro.Usuario
        usuario.clave = tbContrasenaActual.Text
        'For Each imenuestado As ToolStripMenuItem In FrmMenu.ssMenuEstado.Items
        '    If imenuestado.Tag = "usuario" Then
        '        usuario.codUsuario = imenuestado.Text
        '    End If
        'Next

        If GBDZafiro.Usuario.ConsxCodUsuarioClave(usuario) Then
            If Not StrComp(tbNuevaContrasena.Text, tbConfimarContrasena.Text) = 0 Then
                MessageBox.Show("Las contraseñas de los campos Nueva Contraseña y Repite Contraseña, son diferentes", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                usuario.clave = tbNuevaContrasena.Text
                GBDZafiro.Usuario.ActualizarClave(usuario)
                MessageBox.Show("Contraseña Actualizada", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information)
                clearCampos()
            End If
        Else
            MessageBox.Show("Contraseña Actual Incorrecta", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Sub

    Private Sub clearCampos()
        tbConfimarContrasena.Clear()
        tbContrasenaActual.Clear()
        tbNuevaContrasena.Clear()
    End Sub
  
End Class